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EDITORIAL 


Tras un breve lapsus de tiempo, debido 
principalmente a las vacaciones, aquí estamos de 
nuevo con nuevos e interesantes programas para 
todos aquellos “AMIGOS DEL MSX”. 


Ante todo, comenzar agradeciendo el cariño con el 
que hemos sido recibidos por todos vosotros, y 
aunque se haya dicho muchas veces esto nos 
obliga a superarnos en ofrecer lo mejor cada mes. 


En este ya nuestro número 2, os ofrecemos una 
serie de programas listados con mayor o menor 
dificultad, en los cuales podéis introducir una serie 
de cambios y mejoras, dejando de esta forma 
campo abierto a vuestra imaginación y vuestros 
conocimientos del ordenador. 


Esperamos que os sean de utilidad e interés y, con 
vuestra voluntad y nuestra pequeña contribución, 
seáis capaces de elaborar poco a poco, programas 
cada vez más complicados. 


Gracias y hasta el próximo mes. 


Edita: Editorial GTS. C/. Bailén, 20. 1.? Izda. 28005 MADRID. 
| Secretaria Redacción: N. Vera Clavijo. Colaboradores: 
Eugenio Garrido, J. F. Martínez. J. Bernal, R. Carralón, y. 
Ramos, Juan Jesús Ortega. Dirección Artística y Técni- 
ca: Jesús Negrete. Publicidad: Dpto. propio Avda. Medi- 
terráneo, 41, 1. C. 28007 MADRID. Fotocomposición: Gráf. 
FUTURA, Sdad. Coop. Ltda. Imprime: Gráf. FUTURA, Sdad. 


SUMARIO 


EXPLICACION DE LOS PROGRAMAS 
BIBLIOGRAFIA DEL MSX 


Coop. Ltda. Distribuye: R.B.A. Promotora de Ediciones, 
S. A. Trav. de Gracia, 56. Atico 1.*. Teléfono: 200 82 56. De- 
pósito Legal: M. 3988-1986 


1986 - AMIGOS DEL MSX - 3 


EXHPLICACIOH 
PE LOS PROGRAHAS 


BATALLA 


DO ARONA NENA NR 


ZO HEN id 

30 “ee BATALLA — Hee 

E id iio 

A ES 

OA 

70 “LUIS SANGUINO ARIAS 

802 

UE 1986 

LOIO RN NN NERRANE 
io: 


120 COLOR 6,4,14 

130 SCREEN 3 

140 OFEN"GRP:"ASH1 

150 FSET (20,80) ,10:FRINT+H1,"BATALLA" 

160 FOR Y=1 TO 1300:NEXT 

170 CLOSE 

180 COLOR 1,1,1 

190 SCREEN 2, 2 ¿FOR E=1 TO 2 :B$="":FORI=1TO 32 ¿READ At :B$=B$+CHR$ (VAL ("2£H"+A:+ 
J)INEXTISPRITES (K)=B+:NEXT 

200 Bé="":FOR I=1 TO 3:READ A:E+$=B$+CHR+$(A) ¿NEXT 
210 SPRITES (3) =B+ 

O LINE (0,19)= (255,0) ,10,BF 

OFEN "grp:"AS +1 

VIF (1)=22 

Z=RNOD (TIME) 

Im A(40) 
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270 LINE(0,19)-(255,192),1,BF 
280 N=RND (TIME) 

290 FOR EX=1 TO 255 STEP 2 
300 EY=20+INT (RND(1)x170) 

LO PSETREX EY 10 

320 NEXT 

330 CIRCLE (30,40),10,14 

340 FAINT(30,40),14 

350 CIRCLE (35,40) ,10,1 

360 PAINT (35,40) ,1 

370 Z=INT(RND(1)x80)+180 

380 Z1=0:22=0:V1=0:V2=0 

390 FOR I=1 TO 15 

400 A(I)=INT(RND(1)x130) 

410 IF AZ%A(I) THEN A=A(I) 

420 NEXT 

430 Vi=150:Z2=25 

440 FOR I=1 TO 15:CV=(55%xA(1))/A:V2=190-CV 
50 -LINE(Z1,V1)-(Z2,V2),15 


— 
e) 
== 
SN 
y) 
DN 
y 
DD 
y 
OS 460 Vi=V2:Z1=Z2 
MN 
3 
> 
>” 
0 
y 
DD 
Dd 


470 22=22+Z/10 
480 NEXT 
490 FAINT (9,191),15 
500 FOR I=190 TO130 STEP-1 
IF POINT(15,1)<>15 ANDFOINT(31,1)< 
NEXT 
FOR I=190 TO130 STEFP-1 
IF POINT(225,1)<>15 AND POINT(241,1):+ 
NEXT 
LINE (13,CY+17)-(30,190) ,15,BF 
570 LINE(223,FY+17)-(240,190),15,BF 
580 PUTSPRITE1,(15,CY),10,1 
590 PUTSPRITE 2,(225,FY),2,2 
600 PSET(5,5),10:PRINTH1,"ANGULO=" 
610 PSET(155,5) ,10:PRINTH1,"FUERZA=" 
620 O$="1"¡Bg="2" 
630 PSET(110,5) ,10:PRINTH1,0% 
540 As=INKEYE 
650 IF As THEN ANG=ANG+1:LINE (60,5)-(90,13),10,EF 
660 IF As="-" THEN ANG=ANG-1:LINE (60,5)-(90,13),10,BF 
670 1F ANGzO THEN ANG=0 
£80 IF ANG>90 THEN ANG=90 


690 1F AF=CHR+$(13) THEN GOTO 720 
700 FSET(60,5) ,10:PRINTH1,ANG 
PES 710 GOTO 640 
20 AF=INKEYS 
730 IF Aé$="+" THEN FU=FU+1:LINE(211,5)-(250,13),10,BF 
740 1 Aé="-" THEN FU=FU-1:LINE(211,5)-(250,13) ,10,BF 
00 THEN FU=100 
>250THEN FU=250 
770 1F AR=CHR+(13) THEN GOTO 800 
780 FSET(211,5) ,10:PRINTH1,FU 
790 GOTO 720 


13 THEN CY=1-16:G0T0O530 


5 THEN FY=I-16:G0T0560 


PO 800 F=ANGX*.0174533 
EN 810 IF Oé="1" THEN R=CY-4 ELSE R=FY-4 
820 FI=FUXZ 
: 830 E=E+4 
S 840 IF EsFU THEN M=M+2 
830 Y=INT(SIN(F)XE)-Mx3 
PON 860 X=INT(COS(F)XE) 
870 1F Oé$="1" THEN ExX=X+15:5=3 ELSE A=-3:BX=230-X 
880 BY=R-Y 
PON 890 IF FOINT(BX+A,EY+2)=15 THEN BO=1 
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2900 
910 
920 
930 
940 
0) 
3960 
970 
980 
990 
1000 
010 
1020 
1030 


070 
1080 
1090 
1100 
1110 
120 
130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 


1250 


IF BX*255 OR BXz0 THEN BO=1 
FUTSFRITE 3, (BX,EY),6,3 
IF BO=1 THEN 960 
ON SFRITE GOSUE 1050 
SFRITE ON 
GOTO 830 
BEEP sBEEF ¿CIRCLE (BX,EY),5,1:CIRCLE(BX,BY),3,1 
FUTSFRITE 3,(BX,209) ,6,3 
LINE (60,5)-(90,13),10,BF 
LINE (110,5)-(125,13),10,BF 
LINE C211,5)—(250,13) ,10,BF 
SWAF Q+,B+ 
FU=OÓ ¿ANG=0 :E=0 :M=0 :BO=0 
GOTO 430 
DATAO,15,1F,11,11,15,15,B1,EB,85,81,89,40,82,88,80,10 
16B,05,1,01,05,01,20,36,22,22,2 124,23,20,20,48,02,80 
4,54,04,84,85,7,11,1,81,D1,01,05,64,224,64 
T[=0. 
FLAY"T138M101CDCC","T138M101CCED","T110M101DDC" 
I=I+1:1F 1215 THEN 1140 
IF EX>150 THEN 1110 
PUTSPRETEL, (USC Y, 1571 
IF BX:2150 THEN 1120 
PUTSFRITE 2,(225,FY),1,2 
FOR J=1 TO 20:NEXT 
GOTO 1070 
IF EX: O THEN PUTSPRITEA1!, (15,0), 11,1 
TF TBX> O THEN FUTSFRITE 2, (225,FY),1,2 


COLOR 1,14 

SCREEN 1:KEY OFF 

LOCATE +1 ,6sFRINT"HAS DESTRUIDO LA FORTALEZA " 
LOCATE 10,8:PRINT"ENEMIGA" 

LOCATE O ,11:PRINT"ENHORABUENA JUGADOR NUMERO "0% 


LOCATE 1 ,1S:FRINT"OTRA PARTIDA SI O NO [S/N1" 
A$=INKEYS 

IF Aé$="S" OR Aé="s" THEN CLEAR: GOTO 10 

IF Aé="n" OR Aé="N" THEN END 

GOTO 1220 
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,18,10,10,36,3E,22,2A, 
,88,81,81,91,10,38,7C, 


HT-40 


10 A iiaiolalolele. 


ZO Y Mela AREA 
A HT-40 MRE 
BO ea MR 
O EE 
60.* 

70 “EUGENIO GARRIDO GOMEZ 
80 / 

E 1986 

100 Rails: 
PIO? 


120 COLOR 3,6,10 

130 SCREEN 3 

OFEN"GRP:"AS+1 

FSET (45,80) ,6 :PRINTH1,"HT-40 

FOR Y=1 TO 1500:NEXT 

CLOSE 

COLOR 1,14 

SCREEN 1 

LOCATE 3,10:PRINT"JOTSTICK O CURSOR(J/C3" 
Xé=INKEYF 

I=1+1:1F1>13 THEN I=1 

VIP (7)=1 

IF Xé="J"OR X$="j" THEN CT=1:G0T0270 
250 1F Xé="c"OR X$="C" THEN CT=0:G60T0270 
260 GOTO 210 

270 COLOR 10,4,4 :SCREENZ2,2 

280 GOSUB 630:X1=141:X2=141:X3=141 

290 TIME=0 

300 ON SPRITE GOSUB S00:SPRITE ON 

310 PUTSPRITE 1,(42,X1), 8, 1 

320 PUTSPRITE 2 PR XD 8 11 

330 PUTSPRITE 3,(212,X3)), 8,1 

340 SPRITE ON 

350 A=STICK(CT) 

360 IF A=7 AND DI=0 THEN Dl=1:T1=1 

370 1F A=1 AND DI=0 THEN Dl=1:T2=1 

380 IF A=3 AND DI=0 THEN Di=1:T3=1 

390 IF Ti=1THEN X1=X1-3 

400 IF T2=1THEN X2=X2-3 

410 IF T3=1THEN X3=X3-3 


20. IF THEN Xi=141 :DI=0:Ti=0 
430 IF THEN X2=141 :DI=0:T2=0 
440 IF THEN X3=141 :D01=0:713=0 
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4530 
460 
470 
480 
490 
500 
s10 
520 
5330 
540 
550 
560 
570 
580 


PUT SPRITE7, (HX,HY),1,3 

HX=HX-5::1F HX%=0 THEN HY=INT(RND(1)x125) ¿HX=255 

IF TIME =6000 THEN 590 

GOTO 310 

PUTSPRITE 2,(127,X2), 8, 1 

SPRITE OFF:1F HX>38ANDHX<46THEN X1=141 :DII=0:T1=0:PU=FU+10:GOSUE 580 
IF HX > 123ANDHX<132THEN X2=141 :D1=0:12=0 :PU=PU+10:GOSUB 580 

IF HX>208ANDHX<216THEN X3=141 ¿DI1=0 :13=0 :PU=PU+10 :GOSUBS80 

PUTSPRITE 1,(42,X1), 8, 1 

PUTSPRITE 2,(127,X2), 8, 1 

PUTSPRITE 3,(212,X3), 8, 1 

IF DI=SOTHEN HY=INT(RND(1)x125) :HX=255 

SPRITE ON:+RETURN 

SOUND 6 ,2HF : SOUND? ,2H7 : SOUNDS ,2H10 :SOUNDO ,2H10 : SOUNDI1O ,8H10 :SOUND12,%H40:S0U 


NO 13,2%HO:RETURN 


590 
600 
610 
620 


OPEN"GRF:"AS+1 

FSET (80,100) ¿PRINT+*1 ,"PUNTOS=" ¿PU 

FOR N=1 TO2000:NEXT N 

RUN 

FOR E=1 TO 3 :B*="":¿FORI=1T0 32 ¿READ A+ :B+=B3$+CHR* (VAL ("EH"+A+)) ¿NEXT :¿SPRIT 


ER (K£)=BR2:NEXT 


LINE (0,170)-(255,192) ,10,BF 
PUTSPRITE 4,(42,157), 1, 2 
FPUTSPRITE 5,(127,157), 
PUTSPRITE 6,(212,157), 
RETURN 
DATA1,1,3,3,3,3,6,4,4,0,E,3,1,3,2,9,0,0,80,80,80,80,C0,50,40,40,E0,80,0,80,2 


, 
1, 
1, 


¡SS 


0,0)1,1,1,1,1,1,1,3,3,12,BB,B8,92,93,FF,0,0,0,0,0,0,41,41,00,90,88,94,B6,FE,E 


B,FF,0,0,0,0,0,FF',216+F,13,63,FF,7F 122491 ,7F 1040 


ie 
2 
30.1 
AO 
SO y 
60 * 
O 


DATAO,0,0,F8,0,03,7,85,FF,FC,80,0,0,C0 


AR NN NRNRRAOE 
MNR RNA 
de SALVAMENTO deme 
ARRE MNR 
HORROR RRA 


LUIS SANGUINO ARIAS 
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Y Y SY Y US SY YY LY QU UU" Y Y Y SY Y Y Y SW OY YY YUU ÚUO O UY Y 


OS 

g0 * 1986 

LODO. Riiie 
ARNO 


120 COLOR 15,12,1:KEY OFF 

130 SCREEN 3 

140 OPEN"GRF:"AS1 

1350 FSET(10,80) ,12:PRINTH1,"SALVAME !" 

160 FOR I=1 TO 1500 

170 NEXT 

180 CLOSE 

190 COLOR 1,4,1 

200 SCREEN 2, 2 

210 OFEN"grp:"AS1 

DEFINT X,Y,J,K 

FOR E=1 TO 4 :E$="":FORI=1T0 32 ¿READ A+:B+=ES++CHR$ (VAL ("LH"+A+)) ¿NEXT:SPRIT 

Ef (k)=BRF:NEXT 

240 AA=1 ¿BA=2:HU=0 :HI=3 

250 GOSUB 460 

260 CIRCLE (227,90),15,15 

270 CIRCLE(227,90),10,15 

280 CIRCLE (227,90),7,15 

290 LINE(0,93)-(255,0),5,BF 

300 FOR ES=0 TO 255 STEP 2 

310 YE=INT(RND(1)x95) 

320 FSET(ES,YE),INT(RND(1)x14)+1 

330 NEXT 

340 CIRCLE (55,35) ,15,11 

350 PAINT(S0,35),11 

360 CIRCLE (65,35) ,15,5 

370 PAINT(65,35),5 

380 TIME=0 

390 ON STRIGGOSUB 430 

400 STRIG(CT) ON 

410 TI=TIME/SO 

420 GOTO 420 

430 STRIG(CT) OFF 

440 X=X-+1 

450 1F X:210 THEN 620 

460 PUTSFRITE 1 ,(X,85), 1,50 

470 FUTSFRITE 2 ,(220,80+HU),1,3 

480 IF RR=0 THEN RE=1 :RETURN 
IF T1I:35 THEN 520 
SWAF AA,BA:SWAF HU,HI 
GOTO 390 
YH=85 
E 
L 
Y 


490 


500 


IRCLE (227,90) ,15,4 

IRCLE (227,90) ,10,4 

IRCLE (227,90) ,7,4 

INE(210,70)-(245,93) ,5,BF 

UTSPRITE 2 ,(220,209),1,3 

H=YH+1:1F YH>192 THEN MU=1:GOTO 620 

SUTSPRITE 3 ,(220,YH),1,4 

FOR I=1 TO2S:NEXT 

GOTO 580 

COLOR 1,14 

SCREEN 1 

IF MU=1 THEN LOCATE 0,6:PRINT" LO SIENTO TU CHICA SE HA 
AHOGADO" 

650 1F MU=0 THEN LOCATE 0,6:FPRINT" ERES UN HERDE......... ..ELLA TE AMARA 
SIEMPRE" 

660'LOCATE 2,10:PRINT"HAS TARDADO “;T1;"SEGUNDOS" 

670 LOCATE 2,20:PRINT"OTRA PARTIDA SI O NO [S/NI" 


2 
(me 
EF 
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680 
690 


700- 


710 
720 
730 
740 


Aj=INEEY+ 

I=1+1:1F1>13 THEN 1=0 

VOR (7)=1 

IF Af="S" OR As="s" THEN CLEAR:GOTO190 
IF Af="n" OR Aéf="N" THEN END 

GOTO 480 


DATAO,0,0,0,0,3,E7,9F,8,F0,80,0,0,0,0,0,0,0,8,14 122 ,ED,FC,6C,20,10,10,10,20., 
0,0,0,0,0,0,0,0,03,27,1F,8,11,26,00,89,0,0,0,0 190,0,0,C,EC,FE,C0,81,0,0,0,0,0,0,0 
7530 DATA 9,5,3,2,04,25,12,9,7,3,3,3,1,0,0,0,20,40 

750 DATA 80,80,46,48,70,20,00,80,80,80,0,0,0,0,0,0,3,4,5,2,1,47,4B,11,1,3,7,8,5, 
2,80,40,80,40,46,88,10,£0,00,80,80,C0,E0,10,4,4 


CUESTA 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 


210 


/ 


/ 


/ 


/ 


e 


Y 


lA 


/ 


/ 


RRE 
HNRENE HN 
RR CUESTA HRRENE 
HENNENE MENE 
NORRONR NANA NRER 
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1986 

ala aalalalalalalalalalel 

COLOR 1,3,10 

SCREEN 3 

OPEN"GRF:"ASH1 

FSET (40,80) ,3:PRINTH+1, "CUESTA" 
FOR Y=1 TO 1500:NEXT 


CLOSE 
COLOR 1,14 
SCREEN 1 


LOCATE 3,10:FRINT"JOTSTICE O CURSOR(J/C3" 
X= INKEYE 
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EX 

320 
330 
340 


360 
370 
380 


700 
710 
220 
730 
740 

18) 
760 
270 
780 
790 
800 
810 


820 


I=I+1:1FI:13 THEN I=1 

VO (7)=1 

IF XF="J"OR X$="3" THEN CT=1 :G0TO270 
IF Xé="c"0R XF="C" THEN CT=0:G0TO270 
GOTO 210 

COLOR-1,15,8:+SEREEN-2,2,1 
OFEN"GRF:"AS+1 


DRAW"C3EMO , 180R29U21E25R19E4U20E12R37E18R1S5E6U20R16E20U1R16ESU1SRA1E16U1D1 


FAINT 
FOR 


(1,191), 3 


Px=240:FY=-4 :E=6:6=7 

SFRITE GOSUR 590 

XA PY =PY +4 

DINT(PX+8,FY+26):<33 THEN FY=FY+3 
FOINT(FX+8,FY+18)=3 THEN PY=FY-3:FX=PX-3 
=0 THEN FY=-4 :FX=240 

LE E=0_ THEN FÚUTSPRITE 14(X,1),1,A0 

AOS THEN TPUTSPRITE 14 0 100 1 10 

E 2 THEN(FUTSPRITE 150,125 1,13 
BTSFRTTE CAPA 6 TE 


DAA 


GOSUE 490 
MM=0 THEN SFRITE ON 
Suar E,6 


=0 THEN S=STICK (CT) 
3 THEN X=X+2:Y=Y-=2:SWAF A,B:F=0 
¡Y=Y+2:SWAF C,D:F=1 


DINT(X+12,Y+16): :3 THEN Y=Y+2 
FE POINT (X+12,Y+14)=3 THEN Y=Y-2 


TH Y 8 THEN 630 

TAX ) AND MM=1 THEN MM=0 ¿GOSUB 750 
1H —X ) THEN X=0 

RETURN 

SPRITE OFF 

VI=VI-1 

MM=1 :S=7 :D=3:0=5:PY=209 

RETURN 


PU=FU+1OO :BEEP:BEEP :BEEF 
LINE (70,180)=(180,192),15,BF 
PSET(76,182) ,15:PRINTH1,"PUNTOS="¿FU 
GOTO 340 

SCREEN 1:k 


FRINT"HAS MUERTO" 

LOCATE 3,1! RINT"TUS FUNTOS HAN SIDO=":FU 
LOCATE 1,20:PRINT"OTRA PARTIDA SI O NO [S/NJ]" 
XE=INEEYS 

IF Xé="S"DR X+="s"THEN CLEAR:GOTO 270 

IF Xi="n"OR XE="N"THEM SCREEN O:END 

GOTO 710 

LINE (80 as EF 

FSET(86,2) ,¿3:FRINTH1,"VIDAS="¿VI 

O THEN 670 


IF EB=0 THEN BB=1 :F=0 
RETURN 


4=1 TO 7 ¡Bé="":FORI=170 32 ¿READ Ar :B+=E+$+CHRE (VAL ("2 
(US) SEE NEXT 


H"+A%)) ¿NEXT:SPRIT 


DATA 1,3,3,1,0,1,1,1,3,5,1,2,4,38,20,0,80,C0,E0,00,80,80,80,F0,80,80,80,40, 
,10,10,18 
DATA 1,3,3,1,0,1,1,1,1,3,5,1,1,1,1,1,80,C0,E0,C0,80,80,80,80,C0,A0,90,40,4C 
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40,40,80 

830 DATA 1,3,7,3,1,1,1,F,1,1,1,2,4,8,8,18,80,00,00,80,0,80,80,80,00,50,80,40,20 
1C0,4,0 

840 DATA 1,3,7/3,1,1,1,1,9,5,9,2,2,2,2,1,80,00,C00,80,0,80,80,80,80,C0,50,80,80. 
0,80,80 

830 DATAO ,0,0,0,0,0,0,0,0,0,0,E3,9F,7,E8,90,0,0,0,0,0,0,0,0,0,0,C,CE,FF,CE,44,0 
860 DATAO,1,7,F,F,1B,37,37,6F,6F,37,18,F,F,1,0,0,80,80,C0,C0,E0,F0,70,E8,08,F8, 
0,F0,E0,80,0 

870 DATA 0,1,F,F,1B,37,6F,6F,37,37,1B,F,F,7,1,0,0,80,E0,FO,FO,F8,08,E8,70,FO,E( 
C0,£0,80,80,0,0 


ARNO 
ARO ES 
E O A 
RE AEREA 
PAIR 


/ 
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CARR ORO 

COLOR 15,12,1 

SCREEN 3 

OFEN"GRF:"AS1 

FSET (23,80) ,12:PRINT+1,"XR-2000" 
FOR I=1 TO 1500 

NEXT 

CLOSE 

COLOR 11,78 

2 SEREEN (2, 2 FOR 1 TO 1 :Bé="":FORI=1TO 32 ¿READ A+ :B+=B+$+CHR$ (VAL ("2H"+f 
J) ¿NEXT¿SFRITES (K)=B+:NEXT 

210 OFEN"grp:"AS1 
22OTCEREOE(S0, 3005 1510 
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230 FAINT (50,35) ,10 

240 LINE (0,80)-(255,170) ,12,BF 
250 LINE (0,170) 5,192) ,4,BF 

260 PERS 705 7H PRINTS ML LISTOS 14 

270 FOR I=1 TO 700:NEXT 

280 LINE (75,70)-(225,78) ,7,BF 

290 SOUNO 6,135:SOUND 7,7:SOUND 8,16:SOUND 9,16:SOUND 10,16:SOUNDO 11,0 :SOUND 1: 
16:SOUNO 13,0 

300 K=127 

310 G=289 

320 ON STRIGGOSUE 570 

330 STRIG(CT) ON 

340 LINE (J,177)-(J+10,181),10,BF 

330 LINE (£,177)-(K+10,181),10,BF 

360 IF Xz0 THEN X=0 

370 R=R+.52 

380 T=T+.47 


230 THEN 590 

230 THEN FR=1 :GOTO 590 
420 RUNMSARITE 1 (Xx, 165) 1,71 
430RUTSARETE 2 6174), 3,1 
DABLUTSERIFE=3—+ 0,1670 —14,.1 
PUTSPRITE- 4 ,(R,160)., 15,1 

IF E=1 THEN 550 

LINE (J+10,177)-(J+20,181),4,BF 
LINE (E+10,177)-(K+20,181) ,4,BF 
THEN 320 
LINE (G,100)-(6+2,170) ,15,BF 

LINE (6+2,110)-(G6+4,170) ,12,BF 
G=6-.4:IF 6 15 ¿GOTO 560 


-3:1F 32-10 THEN 
5 ro 330 

560 FSET(G+7,103),1:PRINTH1, "META" :LINE(238,170)-(242,192),14,BF:B=1:GOTO 550 
570  STRIG(CT) OFF :X=X+1:RETURN 

580 DATAO,0,0,1,2,5,B,E,F,5,39,49,9F ,85,48,30,10,38,30,00,40,00,34,10,8,8,70,9 
29,05, 1 

590 COLOR 1,14 

6 1 

610 TF PR=1 THEN 640 

620 LOCATE 4,7:PRINT"ENHORABUENA CAMPEON" 

630 1 PR=0 THEN 650 

640 LOCATE 4,6:PRINT"LO SIENTO HAS PERDIDO" 

650 LOCATE 2,11:FRINT"OTRA PARTIDA SI D NO [S/NJ" 
660 As=INKEYS 

670 I=l+1:1F113 THEN I=0 

$680 VDF:(7)=1 

690 1F Aj="S" OR A$="s" THEN CLEAR:GOTO 190 

700 IF Ags="n" OR As="N" THEN END 

710 GOTO 560 
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ATERRIZAJE 


10 
20 
30 
240 
Sa) 
60 
70 
80 
90 
100 
110 
120 
130 
140 
BO 
160 
170 
180 
190 
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/ 


/ 


/ 


/ 


/ 


/ 


/ 


/ 


/ 


PORO 
RRE MNAE 
RRBRATERRIZAJE Helene 
MONERENE HERNAN 
MORO alalallalalales 


EUGENIO GARRITIO GOMEZ 


1986 
Mala alaoadaalaalalalalolalal 
COLOR 3,6,10 
SCREEN 3 
OFEN"GRP:"AS+1 
FSET (10,80) ,6:PRINTH1, "ATERRIZA" 
FOR Y=1 TO 1500:NEXT 
CLOSE 
COLOR 1,14 
SCREEN 1 
LOCATE 3,10:FRINT"JOTSTICK O CURSOR(J/C)" 
X=INKEYE 
I=1+1:1F1>13 THEN I=1 
VDF (7) =1 
== "JYOR Xé="3" THEN CT=1:GOTO270 
'E"OR Xé="C" THEN CT=0:GOTO270 


CLS:KEY OFF:COLOR 15,1,1:SCREEN 2,2:0FEN "GRF:"AS Hi: 


=RND(—-TIME) 
FOR W=1 TO 260 

X+1:1F-X>15 THEN X=2 

NT (RND(1)x192) 

FSET (dk) ,X 

EXT 

GOSUB 550:0N SPRITE GOSUE S520:SPRITE ON:MY=209:CO=100:M2=1 
LINE (0,180)-(C0+1,184) ,1,BF:LINE(0,180)-(C0,184) ,6,BF 
PUTSFRITE 1,(NX,NY), 10, 1 
PUTSFRITE 3,( AX+15,150), 
PUTSFRITE 2,( AX,150), 2, 
FUTSPRITE 4,(MX,MY), 6, 3 
AX=AX+3:1F AX=255 THEN AX=0 
A=STICK (CT) 

IF A=7THEN Mi=1:M2=0 


Z el 
y tE 
2 


pr o 12 f? 12 fo f2 fo fo fo /2 /?2 fo Ya fo NM /2 fa fa la fa Ya Y, 


440 IF A=3THEN M2=1 :M1=0 

450 IF Mi=1THEN IF NX*0 THEN NX=NX-3 :M2=0 

460 IF M2=1THEN 1F NX<2S5THEN NX=NX+3:M1=0 

470 NY=NY+3:IF NY>138 THEN NY=0 :GOSUBS7O0 

480 B=STRIG(CT) 

490 IFB=-1THEN MX=NX :MY=NY+12 ¿NY=NY-4 :CO=C0-—1 ¿LINE (0,180)-(CO0+1,184) ,1,BF:LINE 
,180)-(C0,184) ,6,BF:ELSE MY=209 

) IF CO=:20 THENS40 

510 SPRITE ON:GOTO 370 

520 REEFsIF NX*AX+3 AND NX:2AX+27 AND NY>134THEN NA=NA+1:¿PLAY"ABABBACAD" FOR N=: 
TO 2000:NEXT N:CO=CO+10:FU=FU+1 

530 SPRITE OFF ¿RETURN 

540 FSET (50,100) :¿FRINT+1,"ATERRIZASTE "¿FUz" VECES" :FOR N=1T04000:NEXT :RUN 
550 FOR K=1 TO 3 ¡B+="":FORI=1TO 32 ¿READ A+ :B+=B$+CHR+ (VAL ("2H"+A+)) ¿NEXT :¿SFR 
EX  (K)=B*:NEXT 

560 RETURN 

370 SOUND 6,2%HF :SOUNI7 ,2H7 : SOUNDS ,2%H10 :SOUNDO ,2H10 : SOUND O ,2H10 :SOUNDI1 2 ,28H40 :S[ 
NOD 13,%HO 

580 FOR N=1 TO 10:FPUTSFRITE 1,(NX,NY)>,N, 1:FOR H=1 TO 20:NEXT H:NEXT N 

590 RETURN 

600 DATA7,9,13,2F,27,13,9,F,0,9,F,9,12,20,70,0,E0,90,08,F4,E4,08,90,F0,B0,90,F( 
90,48,4,E,0,FF,FF,7F,7E,5E,40,2,2,0,0,0,0,0,0,0,0,FF,FE,FF,FS5,D4,90,10,0,0,0,0. 
10,0,0,0,1,0,2,4,2,342,E,4,1,0,0,0,0,0,0,80,50 


610 1ATA0,C0,90,50,40,90,60,80,0,0,0,0,0,0 


SI PREFIERE SUSCRIBIRSE 


POR _TELEFONO.. a 
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BOMBEROS 


10 ROO lIoiaicial: 


A HERE 
30. eek BOMBEROS — te 
A ES 
O EE 
60 * 

70 “LUIS SANGUINO ARIAS 
8o]* 

90: 1986 


LODO ROO lille 


110 

120 COLOR 1,10,4 
130 SCREEN 3 

140 OFEN"GREF:"ASt1 


150 FSET (5,80) ,10:FRINTH1, "BOMBEROS" 


160 FOR Y=1 TO 1500:NEXT 


170 CLOSE 
180 COLOR 12,14,6 


DINICS) Y (3) 
TIME=0 

FOR F=1 TO 3:READ 
FOR F=1 TO 3:READ 
YM=209 :X=100 


FOR 


ki) = 


¿NEXT 


X(F) ¿NEXT 
Y (F) ¿NEXT 


DATA 168,58,118,4,7,27 
=1 710 4 :Ef=""“:FORI=110 32 


LINE (0,170)-(255,192),4,BF 


290 LINE(0,175)-(80,183),1,BF 
300 FSET(4,176) ,1:PRINTH1,"VIDAS="+V1 


310 LINE(O0/172)-(25 
320 LINE (0,167)-( 
330 LINE (40,130)-(2 


41 
yO 


5,167),14,BF 


10) ,15,BF 
),12,BF 


340 LINE(20,150)-(40,130),12 


330 LINE (20 
360 FAINT (22,140) ,12 

370 LINE (20,150)-(0,0) 
380 LINE (7,150)-(0,130 


,150)-(20,130),12 


,3,BF 
E 


390 LINE(41,146)-(200,0),7,BF 


400 LINE (241,110)-(200 
410 LINE (241,110)-(200 
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10) ,5,BF 
,146),5 


¿READ A+ :Bé=B3$+CHRE$ (VAL ("2H"+0%)) ¿NEXT:SER: 


420 LINE (200,110)-(200,146),5 

430 PAINT(202,115) ,5 

440 LINE (170,146)-(190,106) ,8,BF 
ASCTCTIRCUENIAS IS 792] 13 

460 FAINT (242,150) ,2 

470 FOR I=1 TO 255 STEP 30 

480 LINE (1,189)-(1+13,192),11,BF 

490 NEXT 

500 FSET (173,96) ,7:FRINTH1,"43" 

510 INTERVAL ON 

3520 ON INTERVAL=70 GOSUB 730 

3530 D=STICK(CT) 

540 U=sU+1:1F U>l1 THEN U=6 

550 VDOP (7)=U 

360 IF TIME>4000 THEN 980 

53570 ON SPRITE GOSUB 810 

580 LINE (120,40)- (130,25) ,11,BF 

590 LINE(70,20)-(60,5),11,BF 

600 LINE (170,17)-(180,2) ,11,BF 

610 IF D=3 THEN X=X+3 

620 IF D=7 THEN X=X-3 

6309 RUTSPRITE 3 CAM,YMIS 1, 3 

640 PUTSPRITE 1 ,(X,145), 1, 1 

630 RUESPRITE 2 -+(1X+19.,145), 1,2 
660 IF CA=1 THEN YC=YC+9:PUTSFRITE 4 ,( XC, YC), 1, 4 
670 IF CA=1 AND YC146 THEN GOSUB880 
680 SPRITE ON 

690 LINE (120,40)- (130,25) ,6,BF 

700 LINE (70,20)-(60,5) ,6,BF 

710 LINE(170,17)-(180,2) ,6,BF 

720 GOTO 530 
730 YC=YM:XC=XM:YM= 
740 IF T=0 THEN 770 

730 INTERVAL OFF 

760 CA=1 

770 T=1 

780 CO=INT(RNDI(1)x3)+1 

790 XM=X(C0) :YM=Y (CO) 

800 RETURN 

810 IF YC:100 THEN VI=VI+1 ELSE 840 

820 LINE (50,175)-(80,183) ,1,BF 

830 PSET (50,176) ,1:FRINTH1,VI 

840 YC=209:CA=0 

E a A A 

860 INTERVAL ON 

870 SFRITE OFF :RETURN 

880 PLAY"t230m20001dcC" 

890 CIRCLE (XC+8,YC0+7),8,6 

900 FAINT (XC+8,YC0+8) ,6 

910 FOR I=% TO 25:NEXT 

920 CIRCLE (XC+8,YC04+7),8,15 

930 FAINT (XC+8,Y0+8),15 

940 CA=0 

9730 YC=209 : INTERVAL ON:RETURN 

960 DATA6O,F8,10,88,50,20,78,74,7B,27,70,70,50,50,50,68,0,0,0,0,0,0,1F,F0,10,10 
Fo,1F,0,0,0,0,0,0,0,0,0,0,F8,F,8,8,F,F8,0,0,0,0,6,1F,B,11,0,4,1E,2E,DE,E4,E,E,f 
A,4116,9,3,3,2,04,23,12,9,7,3,3,3,1,0,0,0,20,40 

970 DATAB6 ,80,46,48,70,20,C00,80,80,80,0,0,0,0,0,0,3,4,5,2,1,47,0E,11,1,3,7,8,5 
180,40,80,40,46,88,10,E0,C0,80,80,C00,E0,10,0,4 

980 COLOR 1,14 

990 SCREEN 1:KEY OFF 

1000 LOCATE 3,4:FRINT "TU MISION HA TERMINADO" 

1010 LOCATE 1,8:FRINT "HAS LOGRADO SALVAR"¿VI¿"VIDAS" 


209 
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1020 
1030 
1040 
10730 
1060 


LOCATE 1,14:PRINT "OTRA PARTIDA SI O NO [S/N1" 
XF=INKEYS 

IF X$="S" OR X$="s" THEN CLEAR:GOTO 180 

IF Xé="n" OR X$="N" THEN END 

GOTO 1030 


MEMORY-TEST 


il ES 
207 
30- + 
40. 
= UA 
60 * 
q Je 
So 
90 * 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 


260 


18-A 


AO: 
HORNO RNA 
ROBMEMOR Y TES Ti 
HONRA HENCREE 
FORO 


EUGENIO GARRIDO GOMEZ 


1986 
Ra aalaiaiajalolel: 


COLOR 3,6,10 
SCREEN 3 

OPEN"GRP :"ASi1 

PSET(35,30) ,6:PRINTH1, "MEMORY" 

FSET (60,90) ,6:PRINTH1, "TEST" 

FOR Y=1 TO 1500:NEXT 

CLOSE 

COLOR 15,12,12:SCREEN 2 
Al=1:B1=1:C1=1:D1=1:E1=1 

OPEN "GRP:"AS+1 

PSET(80,10) ,10:PRINTH1,"MEMORY-TEST" 

FSET (81,10) ,10:PRINTH1,"MEMORY-TEST" 

PSET (45,30) ,10:PRINTH41 , "COMPRUEBA TU MEMORIA" 
PSET (46,30) ,10:FRINTR1, "COMPRUEBA TU MEMORIA" 
DEFFN X=INT(RND(-TIME)x8)+1 
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FORN=1 TO1O 

PLAY"AR" 

A=SFN X :B=FNX :¿C=FNX :DI=FNX=E=FNX 
GOSUES10:NEXTN:GOTO 470 

EIRCLE (40,100) ,10,A 

PAINT (40,100), 

FoET (30,98) ,A:PRINT+1,A 

CIRCLE (80,100) ,10,B 

PAINT (80,100) ,B 

ESET (70,98) ,B:FPRINTH1,E 

CIRCLE (120,100),10,0 

FAINT (120,100) ,C 

PSET (110,98) ,C:FRINT+1,C 

CTRCLE (160,100),10,D0 

PAINT (160,100) ,D 

FSET (130,98) ,D:PRINTH41,D 

CIRCLE 00,100) ,10,E 

FAINT (200,100) ,E 

FSET (190,98) ,E:PRINTH1,E 

RETURN 

NFF=STR$ (0) +STR$ (B) +STRE (0) +STRE (DO) +STRE (E) 
FOR N=0 TO 20:BEEP:NEXTN 

GOSUB 770:G0SUE 830 

PSET 20,150) ¿PRINTH1," INTRODUCE COcnIGO DE COLORES" 
PSET (21,150) ¿FRINTH1, "INTRODUCE COCIGO DE COLORES" 
LINE (48,178)-(95,190) ,6,BF 

NPF="":FOR N=0 TO 4 

Fé=INKEYE 

IF Fé=""THEN 540 

IF ASC(F+)=8 THEN 500 

IF Fé <"0"0RFE>"9"THEN 540 

ESET (S0+(Nx8) ,180) ,6:PFRINTH1,FS 

NPE=NP GR" "Ez 

NEXT N 

IF NF$=NP+ THEN 730 

GOSUB 770:GOSUB 310 

LINE (20,148)-(236,158) ,12,BF 

RESET (20,130) :PRINTH1,"TU MEMORIA HA FALLADO" 
FPSET (21,150) ¿PRINTH1,"TU MEMORIA HA FALLAnO" 
FOR N=1 TO 1000:NEXT 

LINE (0,148)-(255,158) ,12,BF 

RSET (0,150) ¿PRINTH1, "QUIERES VOLVER A INTENTARLO (S/N) " 
ESET (1,150) ¿FRINT+1, "QUIERES VOLVER A INTENTARLO (S/N) " 
IF INKEY S" THEN RUN 190 

IF INKEY+$="N" THEN STOF 

GOTO 700 

LINE (0,148)- (255,158) ,12,BF 

ESET (0,150) ¿PRINTH1,"ENHORA BUENA ACERTASTE”":FLAY "ABCAECCH" 
RESET (1,150) ¿PRINTH1 ,"ENHORA BUENA ACERTASTE" 
GOTO $60 

SWAF A,A1 

SWAP B,B1 

SWAF C,C1 

SWAF D,DL 

SWAP E,E1 

RETURN 

CIRCLE (40,100) ,10,A4 

FAINT (40,100) ,A 

CIRCLE (80,100) ,10,B 

PAINT (80,100) ,B 

CIRCLE (120,100),10,C 

PAINT (120,100), 

CIRCLE (160,100) ,10,D 
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900 FAINT (160,100) ,D 

910 CIRCLE (200,100) ,10,E 
920 PAINT (200,100) ,E 

930 RETURN 


PROGRAMA PISTA 


10 / de FROGRAMA ARAN 


A o ARCANO 
DO OO PISTA ARENA 
4O—! 
50 * E LUIS SANGUINO 1986 xk 
60 ' 


70 COLOR 15,5,1:KEY OFF 

80 SCREEN 3,3 

90 OFEN "grp:"AS +1 

100 FRESET (50,5) ,1:PRINTH1,"PISTA" 

110 FOR I=0 TO 31:READ A 

120 VFOKE (14336+1),A 

130 NEXT 

140 DATAO,31,0,128,195,199,253,118,29,7,3,1,33,31,0,0,0,255,64,64,2 


ELE 


130 : 
160 DATAS,5,0,1,24,0,9,3,2,2316,90,2,12 
170 VFOKE 6912,100 


200 VPOKE 6913,1 

O LIMECO,160)-(253 
O FOR I=1 TO 230€ 
O CLOSE 

240 SCREEN 1 


192) ,10,BF 
NEXT 
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250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
4530 
460 
470 
480 
490 
500 
10 
320 
530 
540 
350 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 


COLOR 1,7,6 

LOCATE 1,6:PRINT"FULSA O FARA TECLADO" 
LOCATE 1,8:PRINT" 1 FARA JOYSTICK 
LOCATE 1,10:FRINT" 2 FARA JOYSTICI 
INPUT JT 

IF JT*2 OR JT<0 THEN 290 

COLOR 15,1,1 

SCREEN 2,2,1 

RESTORE 140 

FOR I=0 TO 31:READ A 

VFOKE (14336+1) ,A ¿NEXT 

OFEN "grp:"AS +1 

Z=RND(-TIME) 

DIM A(40) 

N=RND (-TIME) 

FOR EX=1 TOD 235 

EY=20+ INT (RND(1)x170) 

FSET(EX,EY) ¿INT(RND(1)X15) 

NEXT 

CIRCLE (30,40) ,10,14 

PAINT (30,40) ,14 

CIRCLE (35,40) ,10,1 

PAINT (35,40) ,1 

LINE (60,0)- (190,12) ,5,BF 

PSET (66,2) ,S:PRINTH1,"ATERRIZAJES=" ¿AT 
FOR I=1 TO SO00:NEXT 

LINE (0,180)-(255,192) ,12,BF 
XP=INT(RND(1)x240) 

LINE (XF,180)-(XP+25,185) ,11,BF 

XH=0 :YH=20 

XH=XH+8 

XH=XHMO00 (256) 

PUT SPRITE 0,(XH,YH),15,0 

IF FOINT(XH+8,YH+15)=11 THEN AT=AT+1:G0TO 480 
GOSUB 4620 

IF FOINT(XH+2,YH+15)=12 THEN 660 

GOTO 550 

D=STICK(JT) 

IF D=S THEN YH=YH+2 

IF D=1 THEN YH=YH-2 

RETURN 

SCREEN 1 

LOCATE 6,7:FRINT " LO SIENTO" 

LOCATE 3,10:PRINT "TE HAS ESTRELLADO" 


2 
A E 


LOCATE 0,15:FRINT "HAS CONSEGUIDO" AT; "ATERRIZAJES" 
LOCATE 1,20:FRINT "LO INTENTAS DE NUEVO [S/N]" 
AF=INKEYS+ 


IF A$="S" OR Aé="s" THEN CLEAR :GOTO 10 
IF Aé="n" OR A$="N" THEN CLS:END 
GOTO 710 


1986 
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ATAQUE 


10 RN O EN 


20 * tente id 
30 ee ATAQUE texte 
240 * seee iodo 
50 ONO 
60 * 


70 “LUIS SANGUINO ARIAS 
jr 

90--. 1986 

100 RON NORONEROE 
JIEUON pe 

120 COLOR 2,14,1 

130 SCREEN 3 

140 OFEN"GRP:"ASH1 


150 FSET (40,80) ,14:PRINTH+1 "ATAQUE" 


160 FOR Y=1 TO 1500:NEXT 
170 CLOSE 

180 COLOR 1,14 

190 SCREEN 1 


200 LOCATE 3,10:PRINT"JOTSTICK OD CURSOR(J/C)3" 


210 X+=INKEEYS 
220 I=1+1:IFI1:13 THEN I=1 
230 VDP(7)=1 


240 IF X+="J"DR X$="j" THEN CT=1 :GOTO270 
250 IF X$="c"OR X+="C" THEN CT=0:GOTO270 


260 GOTO 210 
270 COLOR 1,1,1 


280 SCREEN 2,2 ¿FOR K=1 TO 6 
)) ¿NEXT:SPRITES (K)=B+:NEXT 
290 LINE (0,18)-(255,0) ,10,BF 


300 OPEN "grp:"AS +1 
310 EN=1500 


¿Bé=""¿FORI=1TO 32 


320 FSET(5,5),10:PRINTH1,"ENERGIA=" ¿EN 
330 FSET(155,5) ,10:PRINT+1,"PUNTOS="+FT 


340 Z=RND(-TIME) 


350 LINE (0,19)-(255,192) ,1,BF 


360 N=RNOD(-TIME) 

370 FOR EX=1 TO 255 STEF 
380 FF=(FF+1)M0D0(15) 

390 EY=20+INT(RND(1)Xx170) 
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” 


¿READ As :ES=B4+CHRE (VAL ("2H"+A+ 


PSET(EX,EY) ,FF 

NEXT 
X=120:Y=100:A=1:X1=128:Y1=30:Z=1:Z1=1 
FUTSPRITE 5,(55,170),10,5 

PUTSPRITE 6,(125,170),10,5 

PUTSPRITE 7,(200,170),10,5 

INTERVAL ON:ON INTERVAL=20 GOSUB 720 
IF Y1>60 THEN A=2 :IF Y1>100 THEN A=3 
Yi=Y1+Z:1F Y1>150 THEN Z=-1 

IF Y1>140 THEN GOSUB 590 
X1=(X1+Z1)M0D (255) 

PUTSPRITE 3,(X1,Y1),3,A 

PUTSPRITE 4,(X,Y),15,4 

IF ENZO THEN 900 

GOSUB 770 

IF STRIG(CT)=-1 THEN GOSUE 690 

GOTO 470 


LINE (X1+8,Y1+8)-(X1+8,180) ,13:BEEF 

IF Z=0 THEN 620 

INTERVAL OFF :Z=0:1F X1*128 THEN Zi=-1 ELSE Z1=1 

IF Ri=0 THEN IF X1+8:35 AND X1+8<70 THEN FUTSFRITE 5,(55,170) ,6,6 :EN=EN-200: 


630 1F R2=0 THEN IF X1+8>125 AND X1+8<140 THEN PUTSPRITE 6,(125,170) ,6,6 :EN=EN-2 
00:R2=1 
640 IF R3=0 THEN IF X1+8>200 AND X1+8:<216 THEN FUTSPRITE 7,(200,170) ,6,6:EN=EN-2 
00:R3=1 


6530 LINE (X1+8,Y1+8)-(X1+8,180) ,1 

660 EN=EN-2 

670 GOSUB 870 

680 RETURN 

690 IF X+8>X1 AND X+8<X1+14 AND Y+B8>Y1 AND Y+8<Y1+12 THEN A=1:Y1=30:X1=128: INTER 
VAL ON¿PT =FPT+50 :¿EN=EN+20 :GOSUB 870 

700 EN=EN-20 

710 RETURN 

20 F=INT(RND(1)X4) 

730 G=INT(RNOD(1)Xk2) 

740 IF G=0 THEN Zi=2.5 ELSE Zi=-2.5 

750 IF F=0 THEN Z=-2.5 ELSE Z=2.5 

760 RETURN 

770 D=STICK(CT) 

780 IF D=1 THEN Y=Y-1.5 

790 IF D=2 THEN Y=Y-1:X=X+1 

800 IF Di=3 THEN X=X+1.5 

810 IF D=4 THEN Y=Y+1:X=X+1 

20 1F D=3 THEN Y=Y+1.5 

830 IF D=6 THEN Y=Y+1:X=X-1 

840 1F D=7 THEN X=X-1.5 

850 IF D=8 THEN Y=Y-1:X=X-1 

860 RETURN 

870 LINE(70,5)-(110,13),10,BF:FSET(70,5) ,10:PRINT+1,EN 
880 LINE (210,5)-(250,13),10,BF:PSET(210,5),10:PRINTR+1,PT 
890 RETURN 

900 COLOR 1,15,2:SCREEN 1:KEY OFF 

910 LOCATE 4,10:FPRINT"LO SIENTO TU RESERVA" 

920 LOCATE 2,12:FPRINT"DE ENERGIA SE HA AGOTADO" 

930 LOCATE 3,16:FRINT"FUNTOS CONSEGUIDOS="+FT 

940 TIATAO,0,0,0,0,0,3,5,5,2,6,2,0,0,0,0,0,0,0,0,0,0,00,50,50,40,60,30,0,0,0,0,0, 
0,0,0,8,7,9,9,9,6,4,8,30,0,0,0,0,0,0,0,10,E0,90,90,90,60,20,10,30,0,0,0,10,B,7,1 


YY YO UOC OY OO DO DY (161/14 EU 6 Uy 0 UY e 2 8. EEE 


9,31,35,31,19,7,6,0,18,30,30,30,F8,8,D0 / 
950 DATAEO,98,8C,AC,8C0,98,E0,60,30,18,C,C,C,1F,0,0,0,3,4,8,10,10,1F,10,10,8,4,3, 
0,0,0,0,0,E0,70,88,84,84,FC,84,84,88,90,E0,0,0,1,3,3,3F,24,13,15,9,4,2,3,53,91951 


AS 
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/ 
2,3E,80,C0,C0,FC,24,C8,58,90,20,40,C0,A0,90,90,48,70 
960 DATA 0,0,0,0,0,0,0,0,0,0,0,12,37,60,56,BF,0,0,0,0,0,0,0,0,0,0,20,08,56,74,17 
,BD 

y 

CAÑON 
10 AdaaaaadoaaoBoaet 
ZO Mee: doo 
30 Hee CARON seee 


40 HR doll | 
A y 
60 * | 
70 “LUIS SANGUINO ARIAS a 
80 ' 

90 ' 1986 

100. ARARANNNSaSaaaaaaa 

110 / 


120 COLOR 11,1,2 a 
130 SCREEN 2,3 

140 OPEN"GRP:"ASH1 

150 GOSUB 2320 a 
160 G=1 

170 PUTSPRITE 1 ,(100,110), 6, 1 a 
180 PUTSPRITE 2,(100,20),15,2 

190 PSET(25,180) ,1:PRINTH1,"LUIS SANGUINO ARIAS — 1986" 

200 FOR I=1 TO 1600:NEXT a 
210 CLOSE 

220 RESTORE a 
230 COLOR 1,14,1 

240 SCREEN 1 

250 LOCATE 2,10:PRINT"JDYSTICK O CURSOR [J/CI" a 
260 X$=INKEY$ a 
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270 
280 
290 
300 
310 
320 
¡ES 
330 
340 
330 
360 
370 
380 
. 390 
400 
410 
420 
430 
440 
430 
460 
470 
480 
490 
500 
510 
320 
530 
540 
550 
560 
370 
580 
390 
600 
610 
620 
630 


IF Xé="J"OR X$="j" THEN CT= 
IF Xé="c"OR Xé="C" THEN CT= 
GOTO 260 

COLOR 15,5,1 

SCREEN 2, 2 


1:GOTO 300 
0:GOTO 300 


FOR E=1 TO 3 :B$="":FORI=1T0 32 ¿READ Ar :E$=B$+CHRE (VAL ("2H"+A8%)) ¿NEXT 2:SFRIT 


E) =B+ NEXT 
IF G=0 THEN RETURN 
OFEN"GRP:"AS1 


X=1231Y=173:¿RX=0 :RY=-20:LX=250 ¿LY=-20:0X=125:0Y=-20:BX=133:BY=200 
LINE (0,170)-(255,192) ,11,BF 


LINE (0,180)-(70,192),1,BF 
PSET (1,182) ,1:PRINTH+1,"FTS 
II=STICK (CT) 

IF D=3 THEN X=X+6 

IF Di=7 THEN X=X-6 

IF X2240 THEN X=240 

IF X20 THEN X=0 

IF BY:-S THEN FG=0 

IF FG=1 THEN 470 


=" PT 


IF STRIG(CT)=-1 THEN FG=1 :¿BX=X+6:BY=Y-S 
RX=RX+33RY=RY+6:LX=LX-3:LY=LY+6:0X=C0X+5:0Y=C0Y+6 


IF FG=1 THEN BY=BY-9 


SPRITE ON 

IF CX:255 THEN 
IESR THEN 
IF THEN 
IF THEN 
IF THEN 


IF LY>200 THEN 
PUTSPRITE 1 ,(X,Y), 6, 1 
FUTSPRITE 2,(RX,RY),15,2 
PUTSPRITE 3,(LX,LY),4,2 
PUTSPRITE 4,(CX,CY),1,2 
PUTSPRITE 5,(BX,BY),1,3 

ON SPRITE GOSUE 640:SPRITE 
GOTO 390 
DATA1,1,1,1,3,7,7,4,34,36,3 


OFF 


5,30 ,34,34,7,1,20,40,40,40,60,70,70,10,96,B6,016,9 


E,96,96,F0,0£0,0,7,81,41,62,32,34,1F,1F,F,3,3,3,1,1,1,60,00,2,4,80,98,B8,F0,FO,E0 
180,80,80,0,0,0,10,38,70,38,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


050 
640 
630 
660 
670 
680 
690 
700 
710 
720 
730 
740 
730 
16:85 
760 
770 
780 
790 
800 
elo 
820 
830 


SPRITE OFF 

IF BX+55CX AND BX<CX+15 AND! 
da AND LxX+13 AND 
ES AND RxX+15 AND 
IF ANT X+15 ANO 
LE AND ¿X+153 AND 
ue AND! ¿X+15 AND 
GOTO 760 


FT=PT+50 

LINE (30,180)-(70,192) ,1,BF 
FSET (26,182) ,1:FRINTH1,PT 
SOUND 4,13:SOUND 7,7 :SOUND 
OUND 13,0 

RETURN 

COLOR 1,10,1:SCREENÍ 

LOCATE 0,10:FRINT"LO SIENTO 
LOCATE 1,13:PRINT"LO INTENT 
XF=INKEYS 

IF X$="S" OR X$="s" THEN CL 
IF X$*="n" OR X+="N" THEN EN 
GOTO 800 


BY<CY+16 AND FG=1 THEN CY=0:FG=0:BY=200:G0TO 720 
BY¿LY+16 AND FG=1 THEN LY=0:FG=0:BY=200:GOTO 720 
EY¿RY+16 AND FG=1 THEN RY=0:FG=0:BY=200:GOTO 720 
CY+16:180 THEN GOTO 770 

RY+165:180 THEN GOTO 770 
LY+16:180 THEN GOTO 770 


8,16:S0UND 9,16:SOUND 10,16:S0OUND 11,0 ¿SOUND 12, 


HAS SIDO DESTRUIDO" 
AS DE NUEVO E[S/NI" 


EAR:G=1:GOTO 230 
O 
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PANZER 


A 


ZO ARO HNERENE 
30 e PANZER RRA 
GO A ARAN 
A ooo 
60 

70 “EUGENIO GARRIMO GOMEZ 


1986 
RN RARO 
/ 
COLOR 3,6,10 
SCREEN 3 
OFEN"GRE:"ASHt1 
FSET (3,80) ,6:FRINT+H1," PANZER" 
FOR Y=1 TO 1500:NEXT 
CLOSE 
COLOR/1,14 
SCREEN 1:kKEY OFF 
LOCATE 3,10:¿FRINT"JOTSTICE O CURSDRCJ/C3" 
Xié=INEEYS 
I=I+1:1F1>13 THEN I=1 
VIP (7)=1 
IF XF="J"OR X*="3" THEN CT=1:G0T0270 
IF Xé="c"O0R X*="C" THEN CT=0:G0TO270 
GOTO 210 
COLOR 1,10,1 
OFEN"GRF :"ASt1 
290 SCREEN 2, 2 ¿FOR E=1 TOS :B$="":FORI=1T0 32 ¿READ A+ :E+=E$+CHR+$ (VAL ("LH"+A+ 
)) :NEXT:SPRITES (K)=B+:NEXT 
300 Cé=""2C+=CHR$ (240) 
310 SPRITES(6)=C+ 
320 Y=90:R=2:XE=256 :Y2=10 
330 ON SFRITE GOSUB 680 


340 * 

IBA 

3606 * 

370 Y2=Y2+RiE=E+1 

3BOLIF E 2 THEN E=0:EK=INT (RND(1)x30) ¿R=-R 
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IF Y<0 THEN Y=0 
420 PUTSPRITE 1 ,(17,Y), 1, 1 
430 (PUTSPRITE 2 ,(220,Y2), 4, 2 
440 'PUTSPRITE 3 ,(50,42),12, 3 
450 GOSUB 560 
460 PUTSPRITE 4 ,( 50,132),12, 4 
470 PUTSPRITE 5 ,(150,92),12, 4 
480 PUTSPRITE 6,(183,160),12, 4 
490 PUTSPRITE 7,(80,10),12, 4 
500 FUT SFRITES,(XB,YB),6,3 
510 PUT SPRITE9,(XE,YE),6,5 

O GOTO 370 


D=STICE (CT) 

IF D=1 THEN Y=(Y-2)MOD 192 

IF D=3 THEN Y=(Y+2)MOD 192 

=Y-2 AND Y22<Y+2 AND DE=0 THEN GOSUB 760 


600 IF 
610 IF XE“2O THEN GOSUB 700 

620 IF DE=1 THEN XE=XE-10 

630 IF Dl=1 THEN XE=XB+9:GOTO 650 

640 IF STRIG(CT)=-1 THEN BEEF:SFRITE ON:GOSUB 660 

6350 RETURN 

660. YB=Y+3:XB=37 :DII=1 

670 RETURN 

680 IF XB>200 THEN PU=FU+SO 

690 IF XEzx40 THEN 790 

700 1F Dl=1 THEN YB=209:D1=0:XB=-10 

710 1F DE=1 THEN YE=209:DE=0 :XE=256 

720 LINE (75,180)-(200,192) ,10,BF 

730 SPRITE OFF 

740 FSET (80,180) ,10:PRINTH+1,"FUNTOS="¿PU 

7730 RETURN 

760 DE=1 :XE=210:YE=Y2+3 

770 SPRITE ON 

780 RETURN 

790 COLOR 15,13,1:SCREEN 1 

800 'LOCATE 9,10:FRINT"R.I.P" 

810 LOCATE 6,15:FPRINT"PUNTOS=" ¿FU 

820 LOCATE 4,20:FRINT"OTRA FARTIDA S/N" 

830 Xi= INKEYE 

840 IF X+="S" OR X+="s" THEN CLEAR:GOTO 10 

85350 IF X*="n" OR X*="N" THEN END 

860 GOTO 830 

40000 DATAO,0,0,20,10,B,1E,3F,1F,4,3F,6A4,9F,92,72,3F,0,0,0,0,0,80,E0,FF,E0,80,FE 
¿A9,F9,4E,4C,F8 

40010 DATA 0,0,0,0,0,1,7,FF,7,1,7F,95,9F,72,32,1F,0,0,0,4,8,00,78,FC0,F8,20,FC,56 
,F9,49,4E,FC 

40020 DATAO,0,0,0,40,10,47,2F,47,70,48,0,0,0,0,0,0,0,0,0,0,0,80,00,980,0,0,0,0,0, 
0,0,FF,FF,EO,DO,CF,CC,CA,C9,09,CA,CC,CF,DO,EO,FF,FF,FE,FF,7,8,F3,33,53,93,93,53, 
33. F8+B,7,FELEF 

40030 DATA 0,0,0,0,0,0,1,3,1,0:0,0,0,0,0,0,0,0,0,0,2,8,E2,F4,E2,9,123,0,0,0,0,0 
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SARATOGA 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 
110 
120 
130 
140 
130 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
3530 
360 


NO NRORRCRONE 
CREER iodo 
Re SARATOGA —HeRRe 
CARRER RRCRONE 


RN NN RN NRONRONE 
“EUGENIO .GARRIDO GOMEZ 


Í 1986 
iia lolololalaiala? 


COLOR 3,6,10 

SCREEN 3 

OFEN"GRF:"AS+1 

FSET (10,80) ,6:FRINT+1 ,"SARATOGA" 

FOR Y=1 TO 1300:NEXT 

CLOSE 

COLOR 1,14 

SCREEN 1 

LOCATE 3,10:FRINT"JOTSTICKH O CURSOR(J/CI" 
X+=INKHEY+ 

I=1+1:1F1:13 THEN I=1 

VOF (7)=1 

IF X*="J"DR X$="j" THEN CT=1:GOTO270 

IF X$="c"OR X+$="C" THEN CT=0:GOTO270 

GOTO 210 

COLOR 15,7,1:SCREEN 2,2: 

GOSUB 540:PX=117:FY=1253 
FO=PX+16:PP=FX+32 :BY=209 

ON SPRITE GOSUB 410:SPRITE ON 


PUTSPRITE 2,(PF,FY), 1, 2:PUTSPRITE 1,(FO,PY),1,1:FUTSFRITE O,(PX,FY),1,0 


FUT SPRITE3,(AX,0),1,3 
PUT SPRITE4,(BX,BY),6,4 
PX=PX+1 :AX=AX-5 
PO=PX+16:PP=PX+32 


A=STRIG(CT) :1IFA=-1 ANDTi=0 THEN DI=1:BY=8:T1=1 
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370 IF Dl=1 THEN BY=RY+4 

380 IF EY:+160 THEN DI=0:BX=AX:BY=209 :T1=0 

390 IF AXZ¿-32 THEN AX=253 

400 GOTO 310 

410 IF EY:120 AND BX>+PX+10AND EX<FX+40 THEN GOTO 430 

420 RETURN 

430 FOR N=1 TO 30STEP 2:CIRCLE(PO,PY),N:NEXT 

440| PUTSPRITE 2, (PP+4,PY=1), 19 2:RUTSPRITE 1, (PO-3,PY+10) 41,1 3PUTSPRITE 104 (FX-5 
¿PY+3),1,0 

430 FOR N=2 TO 30STEP 2:CIRCLE(FO,FY),N,6:NEXT 

460 OPEN "GRPF:"AS+1: COLOR 1 

470 FSET (20,20) ¿PRINT+1,"ENHORA BUENA HAS HUNDIDO " 

480 FSET (21,20) ¿PRINT+*1,"ENHORA BUENA HAS HUNDIDO " 

490 FSET (60,3%) :FRINT+1,"EL SARATOGA 

500 FSET (61,35) :PRINTH1,"EL SARATOGA 

510 FSET (20,50) ¿FRINT+1,"GADAFI TE LO AGRADECERA" 

520 FSET (21,50) ¿PRINT+*1,"GADAFI TE LO AGRADECERA" 

530 FOR N=1 TO S5000:NEXT ¿RUN 

540 FOR E=0 TO 4 :E*+="":FORI=1TO0 32 ¿READ A+ :B+=B+$+CHRE (VAL ("RH"+A%)) ¿NEXT:SFRIT 
Es (K)=B+:NEXT 

550 LINE (0,140)-(255,192) ,4,BF 

560 RETURN 

570 DATAO,0,0,0,0,0,0,0,FF,31,1F,F,7,3,7,0,0,0,0,0,0,0,0,0,FF,89,8F,FF,FF,FE,FF, 
0,0,1,7,1,3,3,0,0,FF,98,F9,FF,FF,FF,FF,0,F8,FC,6,A5C,8F,FA,F8,A8,FF,6B,6B,E3,FF,F 
F,FF,0,0,0,0,0,0,0,0,0,FF,92,FF,DB,FF,FF,FF,0,0,0 

580 DATAO,0,0,0,0,0,FC,10,30,E0,E0,C0,C0,0 

590 DATA 0,0,0,0,1F,82,5,BF,FF,BF,C,88,30,30,0,0,0,0,0,0,F0,83,87,EF,FF,FE,4,2,0 
10,0,0 

600 DATA1,0,1,7,6,6,6,6,3,1,1,1,1,1,0,0,00,80,C0,FO0,BO,BO,B0,B0,E0,40,40,40,C0,0 
0,80,80 


SALTO 


DO RNE 


A dd iodo 
O RR SALTO JR 
A MNR 
A 
SO 


70 “LUIS SANGUINO ARIAS 
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80 Y 

qu y 1986 

A oo ioalalaiadal 
110: * 


120 CLEAR:COLOR 3,6,10 

130 SCREEN 3 

140 OPEN"GRP:"ASH1 

150 PSET(55,80) ,6:PRINTH1,"SALTO" 

160 FOR Y=1 TO 1500:NEXT 

170 CLOSE 

180 COLOR 1,2,13:SCREEN 2,2,1 

190 DRAW"C1SBMO,25F65R29F 185R162U1BMO , 190 7R2E8R14F28RSE24FSE6F11USE7F39D9F9E39F 
£U1ESR1DSU1ESD2FSU1E7F23D12U13" 

200 PAINT (1,1),7 

210 PAINT (1,191),15 

220 B$="":FOR K=1 TO 3 :B$="":FORI=1T0 32 ¿READ A+:BE+=B3+CHR$ (VAL ("2£H"+A+)) ¿NEXT 
¿SPRITES (K)=B$:NEXT 

230 OPEN"GRP:"ASH1 

240 G=.05 

250 SOUND 6,15:SO0UND 7,7:SOUND 8,16:SDUND 9,16:SOUND 10,16:SOUND 11,0 :SOUND 12, 
16:SOUND 13,0 


260 ON STRIG GOSUB 370 
270 X=0:Y=3:4=2 :B=3 


280 Y=Y+1 
290 STRIG(0) ON 
300 X=X+1 


310 PUTSPRITE 1 ,(X,Y), 1, 1 
320 PUTSPRITE 2 ,(X,Y+16),1,4 
330 IF -X:93 THEN Y=(Y+(1/6)) 
340 IF Y2133 THEN 400 

350 IF Y:60 THEN A=B:GOTO 300 
360 GOTO 280 

370 STRIG(O) OFF 


380 G=G+.1 
390 RETURN 
400 J=J+1 
410 


420 - J THEN JJ=A(J) 

430 LINE (60,0)- (200,10) ,153,BF 

440 FSET(66,3) ,15:FRINT+1, "ULTIMO SALTO="+¿X 

FOR I=1 TO 100:BEEF:NEXT ; 

LINE (60,0)-(200,10) ,15,BF 

FSET (70,3) ,7:PRINTR+i,"MEJOR SALTO=" +33) 

FOR I=1 TO 1000:NEXT 

IF J:4 THEN 3510 

GOTO 240 

COLOR 1,13,6 

SCREEN _1:KEY_OFF 

LOCATE 7,10:PRINT"TU MEJOR SALTO" 

LOCATE 5,13:FRINT"HA SIDO="3JJ3"METROS" 

LOCATE 1,20:FPRINT"OTRA PARTITMIA SI O NO [S/N]" 

X+=INKEYS 

IF X+="S" OR X+="s"THEN RUN 

IF X$="n" OR X+="N"THEN CLS:SCREEN O:END 

GOTO 360 
DATAO,1,3,3,3,1,3,7,717,17171333,7,7,/80,00,C0,E0,00,80,80,C0,C00,C0,E0,B0,98,c 
,84,88,7,7,1,0,21,12,8,5,3,1,0,0,0,0,0,0,90,E0,E0,F0,30,60,00,80,80,80,80,40,20, 
10,C,0 

610 1ATA7,7,3,3,3,3,6,6,0,0,1C,1E,FF,0,0,0,88,88,8,8,8,8,8,8,10,9,0,4,F8,0,0,0 
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RUTA-X 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 
110 
120 
130 
140 
1530 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
EF 

380 


0 
/ 
/ 

” 
, 
/ 
/ 
” 


, 


( 


lalola lalola lododo do totolulalulalal 
RRA ANRONE 
HR RUTA=X RRE 
do bododa 
iodo todoo tata tolula? 


LUIS SANGUINMO ARIAS 


1986 
CARR NR NRNON 


COLOR 1,4,6 

SCREEN 1,3:KEY OFF 

GOSUB 370 

G=1:A=1 

PUT SPRITE 4,(83,82),1,4 

LOCATE 13,12:PRINT"RUTA-X" 

LOCATE 2,22:FRINT"LUIS SANGUINO ARIAS — 1986" 
FOR I= 1 TO S500:A=A+1:COLOR A-1,A+1,A 

IF A>13 THEN A=1 

NEXT 

PUT SPRITE 4,(83,209) ,1,4 

CLs 

COLOR 1,14 

LOCATE 3,10:FRINT"JOYSTICK O CURSOR [J/CJ" 
X$=INKEYS 

IF Xi="j" OR X$="3" THEN CT=1:GOTO 330 

IF Xé="C" OR Xé="c" THEN CT=0:GOTO 330 
R=R+1 

IF R>14 THEN R=1 

VDF (7)=R 

GOTO 260 

OPEN"GRP:"AS 1 

COLOR 10,10,1 

SCREEN 2,2 

RESTORE 

FOR K=1 TO 4 :B3="":FORI=1T0 32 :READ As :BS$=B3+CHR$ (VAL ("2£H"+A3)) ¿NEXT:SPRIT 
4) =B$ ¿NEXT 

IF G=0 THEN RETURN 
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390 BEs$=""¿FOR I=1 TO 3:READ A:B+=B34+CHR3 (A) ¿NEXT :SPRITES(6)=B3 
400 LINE (0,67)-(255,125),4,BF 

410 LINE (0,182)-(90,192),1,BF 

420 FSET (1,184) ,1:FRINT41,"PUNTOS="¿FT 

430 TIME =0 3 

440 ON SPRITE GOSUE 700 

450 X=255 

460 R=R+8:1EX=1EX-10:SEX=SEX-8 

470 1F TIME>4000 THEN 800 

480 TY=87:08=209:C1=209 

490 BX=BX+7 ¿SY=SY-Kk 

500 LINE (X-R,94)-(X-30-R,98),10,BF 

510 IF X-R:o-6THEN R=0:GOTO 450 

520 SPRITE ON 

530 LINE (X-1-R,94)-(X+6-R,98) ,4,BF 

540 D=STICK(CT) Á 

550 IF D=1 THEN TY=209:C0S=87ePUT SPRITES, (36,TY) 

3560 IF D=5 THEN TY=209:C1=87:PUT SPRITE4,(36,TY) 

570 PUTSPRITE y CIEX, 150),6, 
580 PUTSPRITE (36,55), 1, 1 
590 PUTSPRITE ,» (SEX, 20), 4, 
600 PUTSPRITE SERAN 
610 FUTSFRITE 036. 1D dis 
620 1F DS=1 THEN 660 

630 IF Di=1 THEN 660 

640 IF STRIG(CT)=-1 AND CS=87 THEN SY=91:BX=42:k=7:DS=1 

650 IF STRIG(CT)=-1 AND C1=87 THEN SY=103:BX=48:k=-7:DI=1 ELSE GOTO 4690 

660 FUT SPRITE 6,(BX,SY),1,6 

670 IF SY<0 THEN DS=0:DI=0 

680 IF SY>193 THEN DI=0:DS=0 

690 GOTO 460 : 

700 SPRITE OFF :PT=FT+50:¿LINE (50,182)-(90,192) ,1,BF:FSET (45,184) ,1:FRINTR1,ET 
710 SOUND 6,13:SOUND 7,7:SOUND 8,16:SOUND 9,16:S0UND 10,16:SOUND 11,0 “SOUND 12, 
16:SDUND 13,0 

720 1F DS=1 THEN SEX=255 

730: 1F Dl=1 THEN IEX=255 

740 DS=0:D1=0:SY=209 

7530 PUT SPRITE 6,(BX,SY).,1,6 

760, RETURN 

770 DATADE,DE,DE,D0E,84,47,50,37,37,50,47,84,DB,DB,D0B,0B,68,68,69,6B,16,EC,%8,70, 
60 ,40,E0,10,68,68,68,68,0B,DB,0B,0B,84,47,50,37,37,50,47,84,DB,D8,0B,DB,68,68,68 
108,10,£0,40,60,70,58,EC,16,6B,69,68,68,0,D,D,ED,ED,FF,92,90,90,92,FF,ED,ED,D,D, 
0,0,B6 

780 DATAB6,B7,B5,F9,16,EA,EA,16,F9,BS5,B7,B6,B6,0 

770 DATADB,DE,DB,0B,84,47,50,37,37,50,47,84,DB,DB,DB,DB,68,68,68,68,10,E0,40,7F, 
7F,40,E0,10,68,68,68,68,2,7,2 

800 COLOR 1,14,6 

810 SCREEN 1 

820 LOCATE 1,10:FRINT"OTRA PARTIDA SI O NO [S/N] 

830 LOCATE 1,4:PRINT"TUS PUNTOS HAN SIDO =";,PT 

840 X$=INKEYS 

BS0 VDP (7)=1 

860 -1F X$="S" OR X$="s" THEN CLEAR:G=1:GOTO 230 

870 IF X+="n" OR X$="N" THEN END 

880 I=1+1 

890 IF 1>15 THEN I=0 
900 GOTO 840 


[6] 


SAA] 
EESHA] 
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y EMESTAS SON 
e. TUS REVISTAS 


(91) 266 66 01 
(91) 266 66 02 
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Para Programadores MSX 
tu fiel compañero. 


Esto no es un libro para el 
principiante novato, al con- 
trario, introduce al progra- 
mador MSX “dentro” del or- 
denador, para mostrarle exac- 
tamente como funciona y co- 
mo obtener el máximo partido. 

Los autores han dividido 
su libro en dos partes. 

La primera parte cubre el 
diseño del sistema, como el 
vocabulario de BASIC se rela- 
ciona con los ordenadores 
MSX, y una introducción có- 
digo máquina. Encontrará ex- 
plicaciones detalladas sobre la 
organización de la memoria, 
los modos de pantalla y los 
circuitos de vide y sonido. 

La segunda parte se dedica 
al uso del lenguaje ensam- 
blador en el sistema MSX. Los principales apartados incluyen los 
puntos: 

— El procesador de pantalla de vídeo. 
— El circuito de sonido AY-3-8910. 
— Entradas/Salidas. 

Tanto si necesitas escribir programas de alta eficacia o 
solamente quieres como trabaja tu ordenador, este libro será 
inestimable. Pensamos que rapidamente se convertirá en el 
texto base para aquellos programadores que quieren hacer 
algo más que escribir programas en BASIC. 
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CODIGO MAQUINA PROGRAMACION 


PRACTICA 

La llegada de standar MSX, - - 
marca un paso significativo 
dentro del mundo de los or- 
denadores domésticos. Ofre- 
ce infinidad de excitantes 
oportunidades para progra- 
madores y usuarios. 

Este libro, supone que no 
tienes conocimientos previos 
sobre código máquina. Em- 
explicando las equivalentes 
en código máquina, de las 
principales instrucciones en 
Basic, tales como IF, FOR/ 
NEXT, PRINT, GOTO, GOSUB, 
etc... Continúa con la descrip- 
ción muy detallada de las ru- 
tinas individuales de un sim- 
ple juego: “INVASOR DEL 
ESPACIO”, y cómo se enlazan 
estas rutinas que puedes 
aprovechar en tus programas 
en Basic. 

e Aprende lo fácil que es incorporar rutinas en código 
máquina dentro de tus programas en Basic. 

e Usa el código máquina para crear sonido y gráficos. 

e Diseña tus propios caracteres y “escenarios” con dos 
programas fáciles de usar. 

Tanto si simplemente desea incluir rutinas para acelerar y 
mejorar tus programas en Basic, como si quieres un programa 
completo y potente en código máquina, encontrarás este 
libro extremadamente útil. En él está suprimida la teoria que 
dificulta el código máquina, y se presenta de una forma 
práctica y divertida de aprenderlo. 
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e La mayor variedad de libros de microinformática, 
capaces de satisfacer todas sus necesidades, ya sean 
profesionales, familiares, culturales... 


* Todo tipo de información bibliográfica sob icro- 
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